home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / rhelferv2.09 / install < prev    next >
Text File  |  1998-08-16  |  3KB  |  126 lines
  1. ;Installationsskript für "Rätselhelfer V2.09" (16.08.1998)
  2. ;Namen festlegen
  3. (SET #progname "Rätselhelfer V2.09 (Programm)")
  4. (SET #progfile "Rätselhelfer")
  5. (SET #dokname "Dokumentation im ASCII-Format")
  6. (SET #dokfile "LiesMichZuerst.dok")
  7. (SET #guidename "Dokumentation im AmigaGuide-Format")
  8. (SET #guidefile "LiesMichZuerst.guide")
  9. (SET #demoname "Demo.brain (enthält 5000 Begriffe)")
  10. (SET #demofile "Demo.brain")
  11. (SET #keyname "Keyfile (wird für Vollversion benötigt)")
  12. (SET #keyfile "Rätsel.key")
  13. (SET #brainname "Rätsel.brain (Vollversion)")
  14. (SET #brainfile "Rätsel.brain")
  15. (SET #muster "")
  16.  
  17. ;Zielverzeichnis festlegen
  18. (SET @default-dest
  19.   (ASKDIR
  20.     (PROMPT  "Bitte Zielverzeichnis auswählen.\nEs wird kein neues Unterverzeichnis erzeugt.")
  21.     (HELP    @askdir-help)
  22.     (DEFAULT @default-dest)
  23.   )
  24. )
  25.  
  26. ;Dateien auswählen
  27. (SET #parts
  28.   (ASKOPTIONS
  29.     (PROMPT "Welche Dateien sollen installiert werden?")
  30.     (HELP @askoptions-help)
  31.     (IF (= (EXISTS #keyfile) 1)
  32.       (CHOICES #progname #dokname #guidename #demoname #keyname #brainname)
  33.       (CHOICES #progname #dokname #guidename #demoname)
  34.     )
  35.   )
  36. )
  37.  
  38. ;Dateigrößen aufsummieren und Dateimuster zusammensetzen
  39. (IF (IN #parts 0)
  40.   (
  41.     (SET #alles (+ #alles (+ (GETSIZE #progfile) (GETSIZE (CAT #progfile ".info")))))
  42.     (SET #muster (CAT #progfile "|" #progfile ".info"))
  43.   )
  44. )
  45. (IF (IN #parts 1)
  46.   (
  47.     (SET #alles (+ #alles (+ (GETSIZE #dokfile) (GETSIZE (CAT #dokfile ".info")))))
  48.     (IF (#muster)
  49.       (SET #muster (CAT #muster "|"))
  50.     )
  51.     (SET #muster (CAT #muster #dokfile "|" #dokfile ".info"))
  52.   )
  53. )
  54. (IF (IN #parts 2)
  55.   (
  56.     (SET #alles (+ #alles (+ (GETSIZE #guidefile) (GETSIZE (CAT #guidefile ".info")))))
  57.     (IF (#muster)
  58.       (SET #muster (CAT #muster "|"))
  59.     )
  60.     (SET #muster (CAT #muster #guidefile "|" #guidefile ".info"))
  61.   )
  62. )
  63. (IF (IN #parts 3)
  64.   (
  65.     (SET #alles (+ #alles (+ (GETSIZE #demofile) (GETSIZE (CAT #demofile ".info")))))
  66.     (IF (#muster)
  67.       (SET #muster (CAT #muster "|"))
  68.     )
  69.     (SET #muster (CAT #muster #demofile "|" #demofile ".info"))
  70.   )
  71. )
  72. (IF (IN #parts 4)
  73.   (
  74.     (SET #alles (+ #alles (GETSIZE #keyfile)))
  75.   )
  76. )
  77. (IF (IN #parts 5)
  78.   (
  79.     (SET #alles (+ #alles (+ (GETSIZE #brainfile) (GETSIZE (CAT #brainfile ".info")))))
  80.     (IF (#muster)
  81.       (SET #muster (CAT #muster "|"))
  82.     )
  83.     (SET #muster (CAT #muster #brainfile "|" #brainfile ".info"))
  84.   )
  85. )
  86.  
  87. ;Fortschrittsanzeige auf 0% setzen
  88. (COMPLETE 0)
  89.  
  90. ;Datengröße und freien Plattenplatz anzeigen
  91. (MESSAGE
  92.   "Ausgewähltes Zielverzeichnis:\n"
  93.   @default-dest
  94.   "\n\nVerfügbarer Platz auf dem Datenträger:\n"
  95.   (getdiskspace @default-dest)
  96.   "\n\nBenötigter Platz:\n"
  97.   #alles
  98. )
  99.  
  100. ;Keyfile kopieren, falls angewählt
  101. (IF (IN #parts 4)
  102.   (
  103.     (COPYFILES
  104.       (SOURCE #keyfile)
  105.       (DEST "S:")
  106.     )
  107.     (SET #summe (+ #summe (GETSIZE #keyfile)))
  108.     (COMPLETE (/ (* #summe 100) #alles))
  109.   )
  110. )
  111.  
  112. ;restliche ausgewählte Dateien kopieren
  113. (IF (#muster)
  114.   (FOREACH "" (CAT "(" #muster ")")
  115.     (COPYFILES
  116.       (SOURCE @each-name)
  117.       (DEST @default-dest)
  118.     )
  119.     (SET #summe (+ #summe (GETSIZE @each-name)))
  120.     (COMPLETE (/ (* #summe 100) #alles))
  121.   )
  122. )
  123.  
  124. ;fertig
  125. (EXIT "Viel Spaß beim Rätsellösen wünscht\n\n           Peter Krüger")
  126.